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(57) Abstract 

The invention concerns a method for assisting the 
administration of a distributed application of a transac- 
tion processing manager based on a binary configuration 
file (TUXCONFIG) characterised in that said method 
consists in: decompiling the master machine active con- 
figuration file; recovering data in the master machine 
decompiled configuration file; verifying the consistency 
of said application operated on the machine concerned. 

(57) Abrege 

La prSsente invention conceme un proc6d6 
d'assistance a 1' administration d'une application 
distribute d'un gestionnaire de traitement des 
transactions basee sur un fichier binaire de configuration 
(TUXCONFIG) caractens£ en ce que ledit proc6d6 
comporte: une 6tape de decompilation du fichier de 
configuration actif de la machine maitre (Mm), une 
etape de recuperation d* informations dans le fichier 
de configuration d6compil6 de la machine maitre, 
une dtape de verification de la consistance de ladite 
application mise en oeuvre sur ladite machine donnee. 
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Proc6d6 d'asststance & I'administration d'une application distribute 
bas6e sur un fichier binaire de configuration dans un svstdme 

informatique 



5 La presente invention concerne un precede d'assistance a 

I'administration d'une application distribuee basee sur un fichier binaire de 
configuration dans un systeme informatique. Ce procede d'assistance a 
1'administration "peut notamment etre applique a un gestionnaire de 
traitement des transactions tel q ue celui commercialise sous la marque 
10 'Tuxedo". 

^application 'Tuxedo" permet a differents logiciels qui ne se 
connaissent pas mais qui respectent un certain protocole, de travailler 
ensemble. 

Generalement, Tapplication 'Tuxedo" est une application distribuee 

15 e'est-a-dire une application qui s'execute sur plusieurs machines en meme 
temps. On appelle "machine", le noeud du reseau au niveau duquel les 
serveurs de 1'application 'Tuxedo" s'executent, et "machine maitre" celle 
controlant I'application 'Tuxedo". La figure 8 illustre le fonctionnement de 
I'application 'Tuxedo". Lorsque Tapplication 'Tuxedo" est lancee, le fichier 

20 binaire de configuration (TUXCONFIG) est charge du disque dans le tableau 
bulletin (Bulletin Board, BB) de la machine maitre (Mm). Le tableau bulletin 
(BB) represente un ensemble de structures de donnees situees dans la 
memoire partagee et contenant des informations sur les transactions, les 
serveurs, les services et les clients appartenant a I'application 'Tuxedo". 

25 Lors du lancement de la machine maitre (Mm), le tableau bulletin (BB) est 
charge dans la memoire de la machine maitre (Mm) a partir du fichier binaire 
de configuration 'Tuxedo" (TUXCONFIG). Puis, il est diffuse vers les 
machines esclaves (Me) par le processus maitre de I'application appele 
liaison distinguee du tableau bulletin DBBL (Distinguished Bulletin Board 

30 Liaison). Chaque machine de I'application est sous le controle d'un 
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processus appele liaison du tableau bulletin BBL (Bulletin Bord Liaison). La 
liaison distinguee du tableau bulletin DBBL est un processus administratif 
qui communique avec les processus (BBL), pour coordonner les mises a jour 
du tableau bulletin (BB). La liaison du tableau bulletin BBL est un processus 
5 administratif charge de tenir a jour une copie du tableau bulletin (BB) sur sa 
propre machine (Me). Chaque machine (Me) est sous le controle d'un 
processus appele BBL, defini implicitement par 'Tuxedo". Le pont (BRIDGE) 
(1) est un processus de gestion des communications entre les serveurs de 
Tapplication 'Tuxedo". Chaque machine est dotee d'un pont defini 

10 implicitement par "Tuxedo". Le serveur TMS (Transaction Manager Server) 
est un processus qui gere un protocole de validation et la reprise pour les 
transactions executees par plusieurs serveurs applicatifs. Le module 
d'ecoute (tlisten, 3) est un processus qui gere les messages destines a 
Tapplication "Tuxedo" sur une machine donnee, avant que le processus pont 

15 (BRIDGE) de cette machine n'ait ete lancee. Un module d'ecoute permet a 
une machine de recevoir des informations provenant d'autres machines. Un 
module d'ecoute est obligatoire sur chaque machine lorsque Tapplication est 
distribute. 

Uapplication "Tuxedo" est creee par la constitution d'un fichier 
20 binaire de configuration qui definit Tarchitecture de ladite application (figure 
7). Lors de la creation du fichier de configuration, un administrates definit 
les services (Se) fournis par Tapplication et les assigne a des serveurs (Sr) 
d'application. L'administrateur definit ensuite des groupes (G) et assigne un 
ensemble de serveurs (Sr). Enfin, Tadministrateur assigne des groupes (G) a 
25 une machine (M). Chaque application doit etre dotee au minimum d'un 
groupe (G), d'un service (Se) et d'un serveur (Sr). Une machine (M) peut 
gerer plusieurs groupes (G). 

Apres la creation d'une application 'Tuxedo", celle-ci doit etre 
administree. L'objet de T invention est de creer un systeme d'assistance a 
30 Tadministration de Tapplication "Tuxedo". Les principals etapes concernant 
Tadministration d'une application 'Tuxedo" consistent en : 
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- une etape de chargement du fichier binaire de configuration de 
Tapplication 'Tuxedo" ; 

- une etape de lancemerit des modules d'ecoute lorsque Tapplication 
'Tuxedo" est une application distribute ; 

5 - une etape de lancement de Tapplication Tuxedo ; 

- une etape de controle de Tapplication. Celle-ci consiste a afficher 
des informations et a proceder, s'il y a lieu aux corrections requises ; 

- une etape d'arret de Tapplication ; et eventuellement 

- une 6tape d'arret des modules d'ecoute lorsque ceux-ci ont ete 

10 lances. 

^administration d'une application distribute peut rapidement devenir 
tres complexe. En effet, avant que cette administration puisse demarrer, 
Toperateur doit activer un module d'ecoute sur chaque machine esclave sur 
laquelle il veut agir. Pour cela, Tadministrateur doit tout d'abord consulter un 

is fichier contenant des informations sur Tactivation des modules d'ecoute. Ce 
fichier est generalement stocke, a une place dont il faut se souvenir, sur 
chaque machine. Puis a Taide de ces informations, Toperateur doit activer 
tour a tour le module d'ecoute de chaque machine. Ainsi, si Tapplication 
concerne dix machines, Toperateur doit activer le module d'ecoute sur les 

20 dix machines, puis a la fin de Tapplication, desactiver les dix modules 
d'ecoute. Cette operation repetitive est longue et fastidieuse. 

Pour effectuer ces taches, chaque administrates a sa solution. La 
solution la plus courante est de stocker sur chaque machine, a une place 
dont il faut se souvenir des scripts d'activation des modules d'ecoute et 

25 d'avoir une copie papier du fichier de configuration. L'administrateur doit 
veiller a ce que les informations soient a jour a tout moment. A chaque fois 
que la configuration change, il ne doit pas oublier d'imprimer une copie 
papier du fichier de configuration et de mettre a jour les scripts sur les 
machines esclaves. 

30 D'autre part, a chaque fois que Toperateur veut agir sur un element 

d'une application, il doit pouvoir identifier rapidement et de fa?on sure une 
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ressource donnee comme par exemple, I'arret du serveur "servl" 
appartenant au groupe "groupl" sur la machine "machl". 

Lorsque le nombre d'application augmente, ces operations 
manuelles sont source de nombreuses erreurs. 

5 La presente invention a pour but de remedier aux inconvenients de 

Tart anterieur en proposant un precede d'assistance a Padministration d'une 
application distribute d'un gestionnaire de traitement des transactions, 
basee sur le fichier binaire de configuration de I'application caracterise en ce 
que ledit procede comporte: 

10 - une etape de decompilation du fichier de configuration actif de la 

machine maltre, 

- une etape de recuperation d'informations dans le fichier de 
configuration decompile de la machine maitre (Mm), 

- une etape de verification de la consistance de ladite application 
15 mise en oeuvre sur une machine donnee. 

Selon une autre particularite, ledit procede permet de gerer au 
moins un module d'ecoute (3) d'une machine quelconque de Papplication a 
partir d'une autre machine. 

Selon une autre particularite, les informations concernant ladite 
20 application distribute sont directement prelevees dans le fichier de 
configuration actif de la machine maitre. 

Selon une autre particularite, Tetape de verification de consistance 
de ladite application consiste en une comparaison entre des informations 
issues du fichier de configuration de la machine maitre et des informations 
25 issues de ladite application courante mise en oeuvre sur une machine 
donnee. 

Selon une autre particularite, ladite gestion des modules d'ecoute 
permet de lancer et d'arreter au moins un module d'ecoute, d'afficher des 
informations concernant au moins un module d'ecoute, de modifier le journal 
30 d'au moins un module d'ecoute, de verifier le script d'au moins un module 
tfecoute et de mettre a jour le script d'au moins un module d'ecoute. 
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Selon une autre particularite, un administrateur se trouvant sur une 
machine quelconque du reseau peut lancer ou arreter un module d'ecoute 
mis en oeuvre sur une autre machine du reseau. 

Selon une autre particularite, ledit procede permet d'activer 
5 plusieurs modules d'ecoute en une seule operation. 

Selon une autre particularite, une interface graphique facilite la 
gestion des modules d'ecoute. 

Selon une autre particularite, ladite interface graphique permet de 
visualiser la structure de ladite application et de selectionner une valeur 
10 voulue dans une liste de valeurs de la configuration courante. 

Selon une autre particularite, lorsque le fichier contenant des 
informations sur ladite application mise en oeuvre sur une machine donnee 
(tlog) est inexistant, le procede le genere automatiquement pour pouvoir 
Putiliser lors du prochain lancement des modules d'ecoute (3). 
15 Selon une autre particularite, lesdites informations affichees 

concernant au moins un module d'ecoute comprennent au moins le nom de 
ladite application, le nom logique de la machine (LMID) sur laquelle ladite 
application est executee, Identification de Padministrateur (UID) de ladite 
application, Padresse utilise par le module d'ecoute (NLSADRR), le chemin 
20 d'acces au reseau de ladite application, le chemin d'acces au fichier journal 
dudit module d'ecoute (LLFPN). 

D'autres particulates et avantages de ia presente invention 
apparaltront plus clairement a la lecture de la description ci-apres faite en 
reference aux dessins annexes dans lesquels : 
25 - la figure 1 represente une fenetre de Tinterface graphique 

proposant Tacces aux commandes principales de gestion des modules ; 

- la figure 2 represente une fenetre de I' interface graphique selon la 
figure 1 permettant d'activer un ou plusieurs modules d f ecoute ; 

- la figure 3 represente une fenetre de P interface graphique selon la 
30 figure 1 permettant Parret d'un ou de plusieurs modules d'ecoute ; 
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- la figure 4 represente une fenetre de ('interface graphique selon la 
revendication 1 permettant I'affichage d'informations concernant un module 
d'ecoute d f une application donnee ; 

- la figure 5 represente une fenetre de P interface graphique selon la 
5 revendication 1 qui permet de verifier le script d'un module d'ecoute d'une 

application donnee ; 

- la figure 6 represente une fenetre de Pinterface graphique selon la 
revendication 1 qui permet de mettre a jour le script d'un module d'ecoute 
sur une machine donnee d'une application donnee ; 

io - la figure 7 represente la structure generate d'une application 

distribute d'un gestionnaire de traitement des transactions ; 

- la figure 8 represente un exemple d'application d'un gestionnaire 
de traitement des transactions. 

Suit un exemple non limitatif de specification de fichier de 
is configuration. Ce fichier de configuration, presente en annexe 1, concerne 
Papplication 'Tuxedo". II est divise en sept sections (ressources, machines, 
groupe, serveur, service, reseau). 

La section ressource contient des informations generales 
concernant Papplication. Ces informations sont communes a toutes les 
20 machines et sont constitutes par les parametres suivants : 

- IPCKEY qui represente une cle numerique identifiant le segment 
de memoire partagee dans lequel sont stockees les structures d'application. 
Grace a cette cle numerique, une application donnee ne peut pas etre en 
conflit avec d'autres applications ; 

25 - MASTER qui represente la machine maTtre ; 

- DOMAINID qui represente le domaine de Papplication ; 

- MAXACCESSERS qui definit le nombre maximum de personnes 
pouvant acceder a Papplication ; 

- MAXSERVERS qui definit le nombre maximum de serveurs 
30 pouvant etre rattache a Papplication ; 
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- MAXSERVICES qui definit le nombre maximum cle services 
pouvant etre rattache a I'application ; 

- OPTIONS qui permet de preciser si I'application a lieu sur un 
reseau local ; 

5 - MODEL qui permet de preciser si I'application est distribute ou si 

elle ne Test pas. 

La section machines contient des informations sur chaque machine 
(puce, trifide, zig, orage) du reseau. Ces informations sont constitutes par 
10 les parametres suivants : 

- LMID (Logital Machine ID) qui definit le nom logique de la machine 
c'est-a-dire le nom utilise en interne par I'application, a la place du nom 
reseau; 

- TUXDIR qui specifie le chemin d'acces au repertoire d'installation 
15 du logiciel 'Tuxedo" ; 

- APPDIR qui specifie le chemin d'acces aux serveurs applicatifs, 
c'est-a-dire le chemin menant aux programmes de I'application (par exemple 
les programmes concernant Tapplication "TUXEDO") ; 

- TUXCONFIG qui specifie le chemin d'acces absolu au fichier 
20 binaire de configuration TUXCONFIG, celui-ci contenant des informations 

sur I'application ; 

- ENVFILE qui specifie le chemin d'acces au fichier contenant les 
variables d'environnement pour les serveurs et pour les clients d'une 
machine donnee; 

25 - ULOGPFX qui specifie le chemin d'acces au fichier "ULOG" qui 

contient des informations sur I'historique de I'application. 

La section groupe est la section dans laquelle chaque machine est 
attribute a un groupe. Dans I'exemple de Pannexe 1, il existe quatre 
groupes. Un groupe est un ensemble de serveurs assurant des services 
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connexes. Dans le cas le plus simple, un groupe n'est constitue que d'un 
seul serveur. Tous les serveurs d'un groupe doivent s'executer sur la meme 
machine. Une application doit comporter au moins un groupe. 

La section serveur fournit des renseignements sur chaque serveur. 
5 Un serveur est un module fournisseur de services. Dans I'exemple a 
I'annexe 1 , il existe quatre serveurs. Dans le cas le plus simple, un serveur 
assure un seul service. Une application doit etre dotee d'au moins un 
serveur. La section serveur fournit les renseignements suivants : 

- SRVGRP qui definit le groupe auquel le serveur est affilie ; 
10 - SRVID qui definit le numero d'identification du serveur ; 

- M!N, MAX qui precisent le nombre maximum et minimum 
d'occurrences de ce serveur; 

- RQADDR qui definit le nom de la queue de message utilisee pour 
renvoi d'un message ; 

15 - dans REPLYQ I'administrateur decide de I'existence d'une queue 

de reponse ; 

- CLOPT qui indique les options de demarrage du serveur (services 
disponibles priorite, ....). 

Dans la section service, I'administrateur peut specifier les services. 

20 Un service est un ensemble de fonctions repondant a des requetes de 
services emanant d'utilisateurs finaux de 1'application. Si I'administrateur 
desire indiquer des valeurs facultatives differentes des valeurs par defaut, 
les services doivent obligatoirement etre definis. 

La section reseau (network) contient pour chaque machine : 

25 - Padresse complete utilisee par le processus pont (BRIDGE) 

appelee "Network Address" ou "NADDR". Les quatre premiers chiffres (0002 
dans I'exemple de la figure 4) represented le protocole de communication 
utilise pep" dans I'exemple ci-dessus). Les quatre chiffres suivants 
represented le numero de port utilise par le processus et les chiffres 

30 suivants represented Tadresse reseau de la machine ; 
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- le chemin d'acces au pont (BRIDGE) de la machine. Le pont est un 
processus de gestion des communications entre les serveurs de 
1'application. II sert a amorcer Tapplication. Chaque machine est dotee d'un 
pont. 

5 - I'adresse complete du module d'ecoute appelee "NLSADDR". Les 

quatre premiers chiffres representent le protocole de communication utilise. 
Les quatre chiffres suivants representent le numero de port utilise par le 
module d'ecoute qui doit etre different de celui utilise par le processus pont 
(BRIDGE). Les chiffres suivants representent Tadresse reseau de la 
10 machine. 

La particularity de Tinvention est que les informations concernant 
I'application sont directement prelevees dans le fichier actif de la machine 
maitre. Un administrates se trouvant sur une machine quelconque du 
reseau peut gerer Texecution de la commande "geMuxval" sur la machine 
is maitre pour le compte de I'administrateur comme represents en page 27 de 
('annexe 2. 

La sous routine "get_tuxconfig" du programme utilise dans la mise 

en oeuvre du procede d'assistance a I'administration d'une application 

distribuee, recherche sur le disque dur de la machine maitre le fichier actif 

20 de configuration de Tapplication. Celui-ci est ensuite decompile au moyen de 

la commande "tmunloadcf ' (Page 28 de Annexe 2, Lignes 85 a 99). 

get_tuxconfig() { 

if [ -s tuxconf. tmp.Sappname ] 
then 

25 cat tuxconf tmp.Sappname 

else 

rm -f tuxconf tmp.* 
prog= H $Env" , 
$TUXDIR/bin/tmunIoadcf 
30 echo "\nexit $?" 

#print -r "$prog" > prog 

rsh "SMASTER" -1 "SADMIN" "Sprog" | tee tuxconf.tmp.Sappname 

fi 

35 get_tlistenlog 
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} 

La sous routine "geMuxval" de ce programme (Page 28 cle I'annexe 
2, lignes 112 a 183) preleve les parametres tels que LMID, APPDIR, 
TUXCONFIG, TUXDIR, ROOTDIR, ULOGPFX, NLSADDR, UID et BRIDGE 
5 du fichier binaire de configuration de Tapplication obtenue a I'aide de la sous 
routine "get_tuxconfig". 

getjtuxvalO { 

gettuxconfig | \ 
10 sed -e M s/=/ /g" -e 's/7/g' -e 'sAWVO/g' 1 awk * 

Les valeurs des parametres recherchees sont tout d'abord 
initial is6es. Pour ceia des matrices associatives appelees 
M tuxconfig_section n sont creees. 

15 BEGIN { 

tuxconfig_section[ M *RESOURCES n ] = 1 

tuxconfig_section["*MACHINES M ] = 2 

tuxconfig_section[ H *GROUPS"] =3 

tuxconfig_section[ M *SERVERS H ] = 4 
20 tuxconfig_section["*SERVICES ,, ] = 5 

tuxconfig_section["*ROUTING"] = 6 

tuxconfig_section["*NETWORK"] = 7 

} 

25 Un index est associe a chaque matrice. Les parametres recherches 

sont situes dans differentes sections du fichier de configuration. Par 
exemple pour Tapplication "Tuxedo", ces differentes sections, au nombre de 
sept, sont appelees "Ressources", "Machines", "Groupes", "Serveurs", 
"Services" et "Reseau". Pour pouvoir prelever les parametres dont 

30 Tordinateur a besoin, il doit pouvoir reperer I'endroit ou il se trouve dans le 
fichier de configuration. Dans ce programme, lorsque le nombre de champ 
(NF) est egal a 1, Tordinateur se trouve au debut d f une section. 



NF = 1 { 
35 if ( $1 in tuxcdnfig_section ) { 
section = tuxconfig_section[$l] 
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next 

} 

} 

Si Tordinateur est dans la section 2 et que le deuxieme mot est 
5 LMID, Tordinateur preleve ie nom logique de la machine (LMID) sur laquelle 
I'administrateur se trouve. 



section = 2 && $2 = "LMID" { # MACHINES section 
if ( $3 = machine) { 
10 printf "uname=%s\n H , $ 1 
mach_found=l 
} 

else { # reset mach_found for furtheur machines 
mach_found = 0 
15 } 

next 

} 

Si Pordinateur est dans la section 2 et que le premier mot est 
20 APPDIR, il preleve le chemin d'acces au repertoire sous lequel les serveurs 
sont amorces. 



section = 2 && $1=" APPDIR" && mach_found=l { 
printf "appdir=%s\n", $2 

25 appdir = $2 
next 

} 

En procedant de la meme maniere, I'ordinateur va relever 
30 successivement dans la section machine du fichier de configuration le 
chemin d'acces absolu au fichier binaire de configuration (TUXCONFIG), le 
chemin d'acces au repertoire d'installation du logiciel Tuxedo (TUXDIR ou 
ROOTDIR), des informations sur I'historique de ('application (ULOGPFX) et 
dans la section reseau I'adresse du pont de la machine (NLSADDR). 

35 

section = 2 && $ 1 ="TUXCONFIG" && mach_found = 1 { 
printf "tuxconfig=%s\n", $2 
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next 

section = 2 && $1="TUXDIR" && mach_found=l { 
printf "tuxdir=%s\n", $2 

S next 

} 

section = 2 && $l="ROOTDIR" && mach_found=l { # for V4 
printf "tuxdir=%s\n", $2 

next 
10 } 

section = 2 && $l="ULOGPFX" && mach_found=l { 
ulogpfx=l; printf "ulogpfx=%s\n", $2 
next 

} 

15 section = 7 && NF = 1 { 
if ( $1 = machine ) 
{mach found =1} 
else { # reset mach_found for other machines 
machfound = 0 
20 } 
next 

} 

section = 7 && $ 1 ="NLS ADDR" && mach_found=l { 
printf "nlsaddr=%s\n", $2 

25 next 

} 

Le programme execute une boucle sur cette sous routine pour 
chaque machine jusqu'a ce que Torclinateur trouve la machine courante. 
30 Puis, Pordinateur se procure dans ia section ressources du fichier de 
configuration Identification de I'utilisateur de Tapplication (UID). 



section = 1 && $1 = "UID" {printf "uid=%s\n'\ $2 ;next } 

35 Si aucune valeur n'a ete definie pour TUID dans le fichier de 

configuration, c'est TUID de la personne qui a construit Tapplication qui sera 
utilise. Puis, Tordinateur releve dans la section reseau du fichier de 
configuration le chemin d'acces au pont (BRIDGE) de la machine. 



40 section = 7 && $ 1 ="BRIDGE M && mach_found=l { 
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Le parametre ULOGPFX representant I'historique de la machine est 
une valeur optionnelle. Lorsqu'il est inexistant, I'ordinateur va generer un 
fichier appele "ULOG" dans le repertoire APPDIR contenant des 
informations sur les manipulations operees sur I'application. 

if ( ulogpfx = 0 ) { 

printf "ulogpfx^os/ULOGW, appdir } 

} ' machine=$machine appname=$appname 
lang='sed -e "s/=//g" -e "s/Y/g" -e "s/;/ /" $ConfDir/$appname.tux I awk ' 
^ $l== ,, LANG"{printf"lang=^$2} , ' 

De plus, I'ordinateur a besoin de la langue de travail de I'application 
representee par le parametre LANG, ainsi que de la valeur "tlog". Le 
parametre LANG se trouve dans le fichier de configuration de I'utilisateur. 

lang^sed -e "s/=/ /g" -e "s/V/g" -e "s/;/ /" $ConfDir/$appname.tux | awk ' 
$1 = "LANG" {printf "lang= H , $2}' ' 

La valeur "tlog" fait reference au fichier "tlistenlog . <nom de 
l'application> . <nom de la machine>" contenant le nom du fichier historique 
du module d'ecoute. 

Dans la sous routine get_tuxval, le programme a rassemble toutes 
les variables d'environnement dont il a besoin pour pouvoir lancer le 
procede d'assistance a ('administration d'une application distribute. Ce 
procede permet, en outre d'amorcer et d'arreter un ou plusieurs modules 
d'ecoute, d'afficher des informations sur un ou plusieurs modules d'ecoute, 
de modifier le journal d'un ou plusieurs modules d'ecoute, de verifier le script 
d'un ou plusieurs modules d'ecoute et enfin de mettre a jour le script d'un ou 
plusieurs modules d'ecoute (Figure 1 ). 

Le procede d'assistance a Tadministration d'une application 
'Tuxedo" distribute est dote d'une interface graphique qui permet I'acces 
aux commandes du gestionnaire de traitement des transactions. Pour 
executer une tache, I'administrateur n'est pas tenu d'entrer des commandes, 
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il lui suffit de cliquer sur des icones, d'appeler des menus et de specifier des 
valeurs via des boites de dialogue. Le procede d'assistance est pilote par 
menus, structures sous forme d'arborescence. La selection d'une option 
dans le menu principal entraine Taffichage du menu de niveau inferieur 
5 associe. Ce processus est repete jusqu'& Taffichage d'une boite de dialogue 
deroulante dans laquelle Tadministrateur doit entrer des valeurs de 
parametre. Afm de pouvoir gerer les modules d'ecoute de Tapplication 
'Tuxedo" distribute, Tadministrateur selectionne a partir du menu principal 
de 'Tuxedo Commands", les fonctions 'Tuxedo Commands" "Start/Stop 

10 Tuxedo Configuration", "Set up a Tuxedo Application" et "Manage the 
Listener Processes". Les fonctions selectionnables "Strart Listener 
Processes ", "Stop Listener Processes", "Change/Schow Listener Process 
Parameters", "Schow currently running Listener Processes", "Check 
consistency of Listener Process scripts with TUXCONFIG Level" et "Update 

15 Listener Process to TUXCONFIG Level" apparaissent sur la fenetre de 
Tinterface graphique (Figure 1). Pour lancer des modules d'ecoute, 
Tadministrateur doit selectionner la commande "Start Listener Processes" en 
positionnant le curseur de sa souris sur le pave (11) et en appuyant sur le 
bouton gauche de sa souris. La fenetre de la figure 2 apparaTt apres la 

20 selection. Si une application a ete prealablement designee, son nom est 
affiche sur le pave (21). Sinon, Tadministrateur est informe par la marque 
clignotante du curseur qu'il doit en donner une. Pour cela, Tadministrateur 
peut soit cliquer sur le bouton "List" (22) pour afficher la iiste des 
applications enregistrees et en selectionner une, soit entrer explicitement le 

25 nom de Tapplication desiree. Puis Tadministrateur est informe par la marque 
clignotante du curseur dans le pave (23), a partir de laquelle il doit preciser 
le nom des machines sur lesquelles un module d'ecoute doit etre lance. De 
la meme fa9on, la Iiste des machines comprises dans ladite application peut 
"tre obtenue en cliquant sur le bouton "List" (22). Pour valider les machines 

30 selectionnees, par exemple par surbrillance, Tadministrateur doit cliquer sur 
le bouton "OK" (24). La commande de demarrage du module d'ecoute est 
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obtenue par la selection du bouton "Command" (25). Le bouton "Reset" (26) 

permet de reinitialiser les valeurs des paves (21) et (23). Le bouton "Cancel" 

(27) permet d'annuler une valeur introduce sur les paves (21) et (23). Le 

bouton "?" (28) offre une aide en ligne a I'administrateur. 

Pour chaque machine designee dans la liste des machines, 

Tordinateur se procure des informations sur ('application dans le fichier de 

configuration de la machine maltre et un fichier historique appele fichier 

"tlistenlog . <nom de rapplication> . <nom de la machine>" contenant des 

informations sur ('application agissant actuellement sur cette machine. 

L'ordinateur verifie d'abord si le module d'ecoute n'est pas deja demarre sur 

la machine. Si c'est le cas, le message "Listener already running on <nom 

de la machine>" est imprime sur I'ecran. Sinon, si un fichier local existe, 

l'ordinateur Texecute et imprime le message "Listener started on the 

machine", si la commande reussit. Si la commande echoue, l'ordinateur 

imprime le message "Listener starting failed on <nom de la machine>". Si le 

fichier local n'existe pas, l'ordinateur genere un fichier "tlistenlog . <nom de 

l , application> . <nom de la machine>" dans le repertoire APPDIR, I'execute 

et rend compte du resultat comme precedemment Ce fichier contient des 

informations sur I'application courante et sera utilise dans le prochain 

lancement des modules d*ecoute. Ceci correspond aux lignes 652 a 698 de 

la page 36 et aux lignes 699 a 719 de la page 37 de I'annexe 2. 

startlistproc) 
appname=$l; shift 

list="$*" 

set_environ 

boucle_status=0 

exit_status=0 

for machine in Slist 

do 

echo "\n Machine: Smachine \n" 

get_tuxval > "appname.tux" 
get__tllog 
. ./appname.tux 
progl=" 

TUXDIR=$tuxdir; export TUXDIR 
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ROOTDDR=$tuxdir; export ROOTDIR # V4 
APPDIR=$appdir; export APPDIR 
TUXCONFIG=$tuxconfig; export TUXCONFIG 
PATH=${PATH}:\$TUXDIR/bin:\$APPDIR; export PATH 
LANG=$lang; export LANG 

LIBPATH-${LIBPATH}:$tuxdir/Ub; export LIB PATH 
COLUMNS=200; export COLUMNS 

ps -eF *%u %p %a* | awk '\$3 ~ Y'tlistenV && \$0 ~ Y'SnlsaddrY' {exit 1 }' 
if[\$?=l] 
then 

echo Y'Listener already running on SmachineY 1 
echo exit 0 
exit 0 

fi 

if [ -f$appdir/1^sten. Sappname. Smachine ] 
then 

. Sappdir/tlisten. Sappname. Smachine 

ps -eF '%u %o %a' | awk *\$3 - Y'tlistenY* && \$0 - 

Y'SnlsaddrY* {exit 1}' 

if [\$? = 1 ] 
then 

echo Y'Listener started on SmachineY' 
echo exit 0 

else 

echo Y'Listener starting failed on Smachine !!!\" 
echo exit 1 

fi 

else # create the script file & exec it 

echo Y'Staxdir/bin/tlisten -d Sbridge -1 Snlsaddr -u $uid -L StUogY' > 
Sappdir/tlisten. Sappname. Smachine 

chmod ug+x Sappdir/tlisten. Sappname. Smachine 
. Sappdir/tlisten. Sappname. Smachine 

ps -eF ,0 /ou %p %a* | awk ^$3 ~ Y'tlistenY' && \$0 ~ Y'SnlsaddrY' {exit 

1}' 

if [\$?= 1 ] 
then 

echo Y'Listener started on SmachineY' 
echo exit 0 
else 

echo Y'Listener starting failed on Smachine ! ! !V 
echo exit 1 

fi 

fi" 

#echo "Sprogl" > pfogl 
if[-z "Suname"] 
then 

print "Host Smachine not found" 
exit 1 
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fi 

rsh "Suname" -1 "SADMIN" "Sprogl" | awk • 

NR = 1 {line = $0} 

NR > 1 { print line; line = $0 } 
5 END {if(sub(" A exit line)) exit line; print line; exit -1 }' 

boucle_status='expr $boucle_status \| $? ' 
done 

exit $boucle_status 

10 

Pour arreter un module d'ecoute, I'administrateur selectionne a partir 
du menu principal de gestion des modules d'ecoute "Manage the Listener 
Processes", la fonction "Stop Listener Processes" en positionnant son 
curseur sur la pave (12) (Figure 1). La fenetre de la figure 3 apparalt. Elle 

is permet d'indiquer dans un premier pave (31), le nom de ('application, dans 
un second pave (32), le nom de la ou des machines. En cliquant sur le 
bouton "List" (33), une liste des applications enregistrees ou une liste des 
machines concernant chaque application peut etre obtenue selon la position 
de la marque de position clignotante (34). Pour chaque machine de 

20 1'application, Pordinateur imprime le nom de la machine pour laquelle le 
module d'ecoute est arrete. Cette selection a I'ecran grace a I'interface 
graphique lance les pas de programmes "stoplistproc" au cours desquels le 
programme procure a la station sur laquelle la procedure d'arret est lancee, 
des informations par geMuxval sur I'application, contenue dans le fichier de 

25 configuration de la machine maitre (Page 37 de I'Annexe 2, Lignes 720 a 
762). 

stoplistproc) 

appname=$l; shift 
list="$* M 
30 set_environ 

boucle_status=0 
exit_status=0 
for machine in Slist 
do 

35 echo "\n Machine: Smachine \n" 

get__tuxval > "appname.tux" 
. ./appname.tux 
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progl=" 

COLUMNS=200; export COLUMNS 

ps -eF Vou %p %a' | awk \$3 - VtlistenV && \$0 ~ VSnlsaddrV {print \$2; 
exit 0 }' | read pid 
5 if[-n\"\$pid\ H ] 
then 

kill -9 \$pid > /dev/null 
status=\$? 
if[\$status-eqO] 
10 then 

echo V'Process \$pid killed on SmachineV* 
echo exit 0 

else 

echo VTailed to stop listener on Smachine! !!\" 
15 echo exit 1 

fi 

else 

echo Y'No Listener running on $machine\" 
echo exit 1 

20 fi" 

if[-z "Suname" ] 
then 

print "Host Smachine not found" 
exit 1 

25 fi 

rsh "Suname" -I "SADMIN" "Sprogl" | awk ' 
NR= 1 {line = $0} 
NR > 1 { print line; line = $0 } 

END {if(sub("^exit V", line)) exit line; print line; exit -1}' 
30 boucle_status- expr $boucle_status \j $? * 

done 
exit Sboucle status 



35 Si un processus appele "tlisten" appartenant a 1'application courante 

est en fonctionnement sur cette machine, I'ordinateur I'arrete (kill) et imprime 
le message "Process ^'identification du process (PID, Process IDentifier)> 
killed on <nom de la machine> M , sinon il imprime le message "Failed to stop 
listener on <nom de la machine>'\ 

40 De plus, ce precede d'assistance a ('administration d'une application 

permet d'afficher des informations concernant un module d'ecoute. Pour cela 
a partir du menu principal de gestion des modules d'ecoute "Manage the 
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Listener Processes", il suffit a Tadministrateur de selectionner la fonction 
"Change/Show Listener Processes Parameters" sur le pave (13) de la 
fenetre presentee en Figure 1. La fenetre de la figure 4 apparatt. 
Uadministrateur doit preciser dans le pave (41), le nom de I'application et 
dans le pave (42), un nom de machine. Suite a cette precision, les autres 
paves (43 a 46) de la fenetre font apparaitre les valeurs des parametres tels 
que : 

- T identification de I'administrateur (UID), 

- I'adresse complete du module d'ecoute composee de I'adresse de 
la machine et du numero de port qu'il utilise (NLSADRR), 

- le chemin d'acces au reseau, 

- le chemin d'acces complet au fichier journal du module d'ecoute 
(Listener Logfile Full Path Name, LLFPN), 

Toutes ces informations sont extraites du fichier TUXCONFIG de la 
machine mattre. Ces informations ne sont pas modifiables par cette 
commande, a ('exception du LLFPN. Uannexe 2 presente aux lignes 570 a 
579 de la page 35, la partie du programme correspondant a ('execution de la 
commande de modification du LLFPN. 
chglisten) 

appname=$l 
machine=$2 
shift 2 

if [ $# -gt 0 ] 
then 

echo "TLLOG Smachine $1" > $ConfDir/tlistenlog.$appname.$machine 

fi 

exit $? 

Pour pouvoir visualiser les modules d'ecoute actifs de I'application, 
Tadministrateur doit selectionner la fonction "Show currently running Listener 
Processes" en cliquant sur le pave (14) de la fenetre de la Figure 1. 
L'ordinateur affiche la liste des machines de Tapplication sur lesquelles un 
module d'ecoute est actif et Identification du processus PID (Process 
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Identifier) appartenant a la configuration du reseau. L'annexe 2 presente aux 

lignes 764 a 768 de la page 37 et aux lignes 769 a 809 de la page 38, la 

partie de programme correspondant a Taffichage de la liste des modules 

d'ecoute actifs, qui utilise la fonction get_tuxval. 

runninglist) 

appname=$l 

boucle_status=0 

set_environ 

list_lmids= get_tuxconfig | \ 

sed -e "s/=/ /g" -e VV/g' -e 'sAWVO/ 1 -e "sA*//" | awk * 
BEGIN { network=0 } 
{line = $0} 

NF = 1 { if (network = 1) print $1 } 
$1 = "NETWORK" { network = 1 } 
END {if(sub( iiA exit V", line)) exit line; exit -1 
for machine in Slist Jmids 
do 

get_tuxval > "appname.tux" 
. ./appname.tux 
progl=" 

TUXDIR=$tuxdir; export TUXDIR 
LmPATH=${LmPATH}:$tuxdir/lib; export LIBPATH 
ROOTDIR=$tuxdir; export ROOTDIR # V4 
APPDIR=$appdir; export APPDIR 
TUXCONFIG=$tuxconfig; export TUXCONFIG 
PATH=${PATH}:\$TUXDIR^bin:\$APPDIR; export PATH 
LANG=$lang; export LANG 
COLUMNS=200; export COLUMNS 

ps -eF f %u %p %a' | awk *\$3 - \"tlisten\ H && \$0.~ \"$nlsaddr\" {print \$2} f | 

read pid 

if[-n \ M \$pid\"] 
then 

echo V'Listener running on Smachine: pid = \$pid\" 
echo exit 0 
else 

echo \"No Listener running on SmachineV 
echo exit 0 
fi" 

if [ -z "Suname" ] 
then 

print "Host Smachine not found" 
exit 1 

fi 

rsh "Suname" -1 "$ ADMIN" "Sprogl" | awk 1 
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NR= 1 {line = $0} 

NR > 1 { print line; line = $0} 

END { if (sub( ,,A exit m \ line)) exit line; print line; exit -1} ' 
boucle_status=expr $boucle_status \| $?' 
done 

exit $boucle_status 

»> 

L'administrateur peut aussi verifier le script d'un module d'ecoute. En 
selectionnant la fonction "Check consistency of Listener Process scripts with 
Tuxconfig" sur le pave (15) de la fenetre representee en figure 1, la fenetre 
de la figure 5 apparatt. Uadministrateur doit entrer le nom d'une application 
sur le pave (51) et le nom d'une machine donnee sur le pave (52). Une liste 
des applications et des machines est a la disposition de l'administrateur 
grace au bouton "List" (53). Le programme compare les informations 
contenues dans le fichier TUXCONFIG de la machine maitre et extraites par 
la fonction "get_tuxvaI M avec les informations contenues dans le fichier 
"tlisten.(nom de rapplication).(nom de la machine)" situe dans le repertoire 
APPDIR de la machine et donne le resultat de cette comparaison. L'annexe 
2 presente aux lignes 580 a 631 de la page 35 et aux lignes 632 a 651 de la 
page 36, la partie du programme correspondant a la verification d'un script 
tfun module d'ecoute qui permet de signaler les discordances entres les 
parametres des fichiers en imprimant par exemple pour le pont "BRIDGE 
values mismatch". 

chklistscript) 

appname=$l 
machine=$2 
set_environ 

get_tuxval > "appname.tux" 

get_tllog 

. ./appname.tux 

prog-" 

if [ -f $appdir/tlisten.$appname.$machine ] 
then 

cat $appdir/tlisten.$appname. Smachine 
echo \"\\nexit OV 
else 
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echo \"\\nexit IV 
fi" 

if[-z"$uname" ] 
5 then 

print "Host Smachine not found" 
exit 1 

fi 

rm -f tlscript.Sappname. Smachine 
10 rsh "Suname" -1 "$ ADMIN" "Sprog" | tee tlscript.Sappname. Smachine > 

/dev/null 

[ $? -ne 0 ] && exit 1 

[ -s tlscript.Sappname. Smachine ] && cat tlscript.Sappname. Smachine | 

awk 1 

15 END { if ( $2 = "1" ) exit -1 } 1 

[$? -eq-1 ]&& exit 1 

[ -s tlscript.Sappname. Smachine ] && cat tlscript.Sappname. Smachine | \ 
awk 1 

$1 -"tlisten" { 
20 mismatch = 0 

fexec=sprintf("%s/bin/tlisten" > tuxdir) 
if($l !=fexec) { 
print "tlisten command full pathnames mismatch" 
printf "XtscriptrWosXn", $1 
25 printf "\tconfig:\t%s\n", fexec 

mismatch +=1 
} 

for (i=2; i <= NF; i++) { 
if (( Si = "-d") && ($(i+l) != bridge)) { 
30 print "BRIDGE values mismatch" 

printf "\tscript:\t%s\n",$(i+l ) 
printf "\tconfig:\t%s\n",bridge 
mismatch +=1 

} 

35 if (( $i = && ($(i+l) !=nlsaddr)) { 

print "NLSADDR values mismatch" 

printf "\tscript:\t%s\n",$(i+l ) 

printf "\tconfig:\t%s\n", nlsaddr 

mismatch +=1 
40 } 

if (( $i = M -u") && ($(i+l) != uid)) { 
print "UID values mismatch" 
printf "\tscript:\t%s\n", $(i+ 1 ) 
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printf "\tconfig:\t%s\n", tllog 
mismatch +=1 

} 
}} 

5 END { 

if ( mismatch = 0 ) 

printf "Script File is up-to-date for %s\n",machine 
else 

printf "\nScript File is NOT up-to-date for %s\n M ,machine 
10 } 1 tllog^Stllog machine=$machine bridge=$bridge \ 

nlsaddr=$nlsaddr uid=$uid tuxdir=$tuxdir 
exit $? 

Un script d'un module d'ecoute peut aussi etre mis a jour par la 
15 selection de la fonction "Update Listener Process scripts to TUXCONFIG 
Level". Un script d'un module d'ecoute Tuxedo permet de lancer un module 
d'ecoute. II suffit d'integrer un script de ce type pour une machine donnee, 
dans la sequence de lancement pour que le module d'ecoute soit lance 
automatiquement en meme temps que la machine. Dans la fenetre 
20 represents figure 6, I'administrateur entre sur le pave (61) le nom d'une 
application, et sur le pave (62) le nom d'une ou de plusieurs machines. Le 
programme se procure par I'appel de la sous routine "get^tuxval" toutes les 
informations dont il a besoin dans le fichier binaire de configuration extraites 
par la sous routine "get_tuxconfig" et cree un fichier lui correspondant dans 
25 le repertoire APPDIR sous le nom M tlisten.(nom de rapplication).(nom de la 
machine). Les lignes 810 a 831 de I'annexe 2 page 38 presente la partie du 
programme correspondant a I'execution de la commande de mise a jour d'un 
script d'un module d'ecoute. 



30 updtlistscript) 

appname=$l 
machine=$2 
set_environ 
get_tllog 

35 get_tuxval > "appname.tux" 

. ./appname.tux 
prog=" 
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echo Y'Stuxdir/bin/tlisten -d Sbridge -I Snlsaddr -u $uid -L StllogV > $app 
dir/tlisten. Sappname. Smachine 

chmod ug+x Sappdir/tlisten. Sappname. Smachine 

echo exit \$?" 

if [-2 "Suname" ] 
then 

print "Host Smachine not found" 
exit 1 

fi 

rsh "Suname" -1 "$ ADMIN" "Sprog" | awk ' 
NR = 1 {line = $0} 
NR > 1 { print line; line = $0 } 

END {if(sub( ,IA exit ","", line)) exit line; print line; exit -1 }• 
exit $? 

»> 

D'autres modifications a la portee de rhomme de metier font 
egalement partie de Tesprit de I'invention. 
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2 * Tuxedo configuration UBBCONFIG for the model TEST1 

3 * 
4 

5 * RESOURCES 

€ I PC KEY 

■7 MASTER 

S DOMAIN ID 

9 _ MAXACCESSERS 

10 MAX SERVERS 

11 MAXSERVICES 

12 OPTIONS 

1 3 MODEL 
14 

IS -MACHINES 



16 puce LMID=sitel 

17 TUXDIR="usr/ tuxedo" 

19 APPDIR="/ home/ dia /tuxedo" 

1 9 TUXCONFIG= " / home/ dia/ tuxedo /TUXCONFIG" 

20 ■ ENVFILE= " /home/ dia/ tuxedo/ envf ile — puce" 

21 ULOGPFX= "/home/ dia/ tuxedo/ULOG" 

2 2 

23 trifide LMID-site2 

24 TUXDIR s "usr/tuxedo" 

25 APPDIR= '* /home /dia/ tmp" 

26 TUXCONFIG=" /home/ dia/ tmp/TUXCONFIG" 

27 ENVFILE=" /home/ dia/ tmp/envri le_tri fide" 

28 ULOGPFX^ " /home/ dia/ tmp/ULOG" 
29 

30 zig LMID=site3 

31 TUXDIR= u usr/ tuxedo" 

32 " APPDIR="/ home /dia /tuxedo" 

33 TUXCONFIGs" / home /dia/ tuxedo /TUXCONFIG" 

3 4 ENVFILE* " / home / di a / tuxe do / env f i 1 e_z i g " 

3 5 ULOGPFX= " / home /dia/ tuxe do / ULOG M 
36 

37 orage LMID=site4 

38 TUXDIR="usr/ tuxedo" 

39 APPDIR= " /home/dia/ tuxedo" 

40 TUXCONFIG= " /home/ dia/ tuxedo/TUXCONFIG" 

4 1 ENVFILE= " / home /dia/tuxedo/envfil e.orage " 

42 ULOGPFX* " /home/ dia/ tuxedo /ULOG" 
43 

44 
45 

4 6 'GROUPS 
47 

48 DEFAULT: TMSNAME=TMS TMSCOUNT-2 

49 3R0UP1 LMID=sitel 

50 GRPN0=1 

51 GR0UP2 LMID=site2 

52 GRPN0=2 

53 GR0UP4 LMID^site3 

54 GRPNO=3 

55 GR0UP3 LMID-site4 

56 GRPN0=4 
57 

58 

59 -SERVERS 

60 * 



61 DEFAULT: RESTART= Y MAXGEN=5 REPLYQ=Y CL0PT="-A' 



62 

63 SRV1 

64 SRVGRP=GR0UP1 

65 SRVID=100 

66 MIN=2 MAX=2 

67 RQADDR=QSRV1_1 

68 REPLYQ«Y 

69 CLOPT= " -s SVC1_1 -s SVC1_2 -- 

70 SRV2 

71 SRVGRP=GR0UP2 



Page as 



191785 
sitel 



50 

50 
100 
LAN 
MP 



doml 
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ubb.doml 



Page 2f> 



72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 



SRV4 



SRV3 



•SERVICES 

TErAULT: 

£TVC1_1 

SVC 1.2 

5VC2_1 

SVC2_2 

SVC4_1 

SVC4_2 

SVC3_1 



SRVID=200 
MIN=2 MAX =2 
RQADDR-QSRV2_2 
REPLYQ=*Y 

CX0PT="-s SVC2_1 

SRVGRP=GROUP4 
SRVID=300 
MIN=2 MAX =2 
RQADDR=QSRV4_3 
REPLYQ=Y 

CL0PT= "-s SVC4_1 

SRVGRP=GROUP3 
SRVID=4 00 
MIN=2 MAX=2 
RQADDR=QSRV3_4 
REPLYQ=Y 

CLOPT= M -s SVC 3_1 



L0AD=50 



-s SVC2_2 -- 



-s SVC4_2 -- - 



* NETWORK 
sitel 
« 



sice2 

« 

# 



ice3 



ice4 



port number=6095l (eel7 hexa) 
local address=81b683e0 
NADDR= u \\xO0O2eel781b683eO00O00OOOOO0O000O" 
BRIDGE= " / dev/xti/ tcp M 
port number=60952 (eel8 hexa) 

NLSADDR= " \ \xO0O2eel881b683e00OOO0OO00000000O" 



port number=6095l (eel 7 hexa) 
local address=81b68387 

NADDR="\\x0002eel781b683870000000000000000" 

BRIDGE^ M / dev/xti / tcp" 

port number-60952 (eel8 hexa) 

NLSADDR= "Wx0002eel881b683 870000000000000000" 



port number»60951 (eel7 hexa) 
local address=81b683el 

NADDR= M \\x00O2eel781b683el0000OOO0000000OO" 

BRIDGE=" /dev/xti/ tcp M 

port number=60952 (eel8 hexa) 

NLSADDR="\\xOOO2eel881b683elO00OOOO0OO000OOO" 



port number=60951 (eel7 hexa) 
local address=81b6838b 

NADDR="\\x00O2eel78lb683 8bO00O000OOO00000O" 

BRIDGE^" /dev/xti/ tcp" 

port number=60952 (eel 8 hexa) 

NLSADDR="WxOOO2eel881b683Bb00OO0O0OOO000OOO ,, 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 - 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 



# @BULL_COPYRIGHT@ 
# 

# HISTORY 

# $Log: smtuxadmin. ksh, v $ 

# Revision 1.7 1996/02/12 11:40:49 odeadm 

# bci VlSet2C 23.01.96 

# [1996/01/23 14:31:07 dia] 
# 

# Revision 1.6 1995/12/20 14:26:59 odeadm 



VI Set2 : Still troubles with smtuxadmin. ksh 
[1995/12/11 11:56:55 odeadm] 

07.12.95 VlSet2 first batch of corrections 
[1995/12/07 17:22:57 odeadm] 

*** empty log message *** 
[1995/11/30 13:48:30 dia] 

*** empty locr message *** 
[1995/11/30 12:48:30 dia] 



odeadm 



# Revision 1.5 1995/10/13 11:52:51 

# Servers TMS /Partitioned mach. 

# [1995/10/09 12:05:57 dia] 
# 

# Revision 1.4 1995/09/15 15:15:06 odeadm 

# Corrections MRs BUILD 3 

# [1995/09/07 15:45:27 dia] 
# 

# Revision 1.3 1995/08/24 13:38:03 odeadm 

# Build3 

# [1995/08/23 09:04:31 odeadm] 
# 

# Revision 1.2 1995/07/19 15:18:13 odeadm 

# Madison build M0 . 2 

# [1995/07/10 10:01:58 odeadm] 
# 

# $EndLog$ 
#! /bin/ksh 

C onf Di r- $ WRAP P I NG_C0N F I GURAT I ON 
Context=smtuxedo. ctx 

Scanconf=$MADISON_VAR/surveyor/scanconf . tux 
V5_to_V4= , ROOTDIR=$TUXDIR; export ROOTDIR ' 
Setl_to_Set2=' [ -z "$ADMIN" ] && export ADMIN="madison" 
cmd=$ 1 ; shift 

set_environ ( ) { 

MASTER=" " ; APPDIR=""; ADMIN=" " 

f ilename«$Conf Dir/$appname . tux 
Env- * tuxgetenv -k -v APP_PW $ filename << ! 
tuxgetenvp 
I * 

eval " $ Env" ; unset APP_PW 
eval "$Setl_to_Set2" 

if [ -n " 5MASTER" -a -n " 5APPDIR" ] 
then 

Env= "SEnv 

$PW 

$Setl_to_Set2 
$V5_to_V4 " ' 

LD_LIBRARY_PATH-$LIBPATH ; export LD_LIBRARY_PATH; 
cd SAPPDIR 

PATH=$ {PATH) : . : $APPDIR : $TUXDIR/bin; export PATH* 
return 0 

fi 

exit 1 



remote_cmd { ) { 

prog="$Env 
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72 $cmd" ' 

73 status=$? 

74 sleep 1 

75 echo "\nexit $ status" 
76 

77 #print -r "$prog" > prog 

78 rsh " $ MASTER" -1 "$ADMIN" "Sprog" I awk ' 

79 NR == 1 (line = $0} 

80 NR > 1 { print line; line = $0} 

81 ~ END {if (sub ( "~exit line)) exit line; exit -1 }' 

82 } 
83 

84 

8 5 get_tuxconf ig ( ) { 

8 6 if [ -s tuxconf . tmp . $ appname ] 

87 then 

8 8 cat tuxconf . tmp . $ appname 

89 else 

90 rm -f tuxconf . tmp. * 

91 prog="$Env" ■ 

92 STUXDIR/bin/tmunloadcf 

93 echo "\nexit $?" 
94 

95 Sprint -r "$prog" > prog 

96 rsh :: $ MASTER r? -1 "3 ADMIN" "$prcg" I tee tuxconf - tmp .$ appname 

97 fi 

98 get_tlistenlog 

99 ) 
100 

101 get_tlistenlog ( ) { 

102 tllogfname=*$Conf Dir/tlistenlog. $appname. $machine 

103 if [ -s $tllogfname ] 

104 then 

105 cat $tllogfname 

106 else # default value 

107 echo "TLLOG Sma chine $ MAJDISON_TMP/tlist en. $ appname . $ma chine . log" I tee $tllogfname 

108 fi 

109 echo "\nexit $?" 

110 } 
111 

112 get_tuxval ( ) { 

113 get_tuxconf ig I \ 

114 sed -e "s/=/ /g" -e 's/'V/g' -e 's/WW/O/g' I awk ' 

115 BEGIN { 

116 tuxconf ig_sect ion [ *'* RESOURCES" ] = 1 

117 tuxconf ig_section [ " * MACHINES" ] = 2 

118 tuxconf ig_section [ "*GROUPS"] = 3 

119 tuxconf ig_section [ "* SERVERS" 3 = 4 

120 tuxconf ig_section["*SERVICES"] = 5 

12 tuxconfig_section[ M *ROUTING"] = 6 

122 t ux c onf i g_sec ti on ["* NETWORK"] ~ 1 

123 } 

124 NF =— 1 { 

125 if ( $1 in tuxconf ig_section ) { 

126 section - tuxconf ig_section[$l] 

127 next 

128 ) 

129 ) 

130 section == 2 && $2 == "LMID" { # MACHINES section 

131 if ( S3 == machine) { 

132 printf "uname=%s\n" , $1 

133 mach_f ound=l 

134 J 

135 else { # reset mach_found for furtheur machines 

13 6 mach found = 0 

137 ) 

138 next 

139 J 

140 section 2 && $1=="APPDIR" && mach_f ound== 1 ( 

141 printf "appdir=%s\n , \ $2 

142 appdir = $2 
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143 next 

144 ) 

145 section == 2 && $ l=="TUXCONFIG" && mach_found == 1 { 

146 printf " tuxconf ig=%s\n" , $2 

147 next 

148 } 

14 9 section ==2 $ 1=="TUXDIR" && mach_f ound== 1 { 

150 printf "tuxdir=%s\n", $2 

151 next 

152 } 

153 section -= 2 & & $1— "ROOTDIR" && raach_f ound== 1 { # for V4 

154 printf "tuxdir=%s\n H , $2 

155 next 

156 ) 

157 section ==2 && $1==" ULOGPFX" && mach_f ound==l { 

158 ulogpfx^l; printf "ulogpf x=%s\n" , $2 

159 next 

160 } 

161 section == 7 && NF =- 1 { 

162 if ( $1 == machine ) 

163 (mach_found =1) 

164 else { # reset mach_found for other machines 

165 mach_f ound = 0 

166 } 

167 next 

168 } 

169 section == 7 && $1— "NLSADDR" && ma ch_f ound== 1 { 

170 printf "nlsaddr=%s\n" , $2 

171 next 

172 ) 

173 section == 1 && SI == "UID" {printf "uid=%s\n" , $2 ;next } 

174 section — 7 && $1=="BRIDGE" && mach_f ound==l { 

175 printf "bridged s\n" , $2 ) 

176 END { # not defined ulogpfx 

177 if ( ulogpfx == 0 ) { 

178 printf "ulogpf x-%s/ULOG\n" , appdir } 

179 ) ' ma chine =$ ma chine appname-$appname 

180 lang='sed -e "s/=/ /g" -e "s/V/g" -e "s/;/ /" $Conf Dir/$appname . tux I awk 1 

181 $1 ~ "LANG" {printf "lang=", $2}' ' 

182 } 
183 

184 get_tllog() { 

185 tllogf name='*SConf Dir /tiis tenlog . $appname . $machine" 

186 if [ -f $tllogfname 3 

187 then 

188 tllog='cat $ tllogf name I awk *$1 == "TLLOG" && $2 == machine { print $3 }' machine=$m 
achine ' 

189 else 

190 tllog= w $MADISON_TMP/tlistenlog. $appname. $ma chine" 

191 echo "TLLOG $ machine Stllog" > $ tllogf name 

192 fi 

193 ) 
194 
195 

196 case $cirtd in 

197 appli) 

198 Is -1 $ConfDir 2> /dev/null I awk • 

199 sub(".tux$", "", $NF) {print SNF} * 
200 

201 isexist) 

202 if [ -f $ConfDir/$l. tux ] 

203 then 

204 echo "Yes" 

205 else 

206 echo "No" 

207 fi 
208 

209 setparam) 

210 [ ! -d $ConfDir ] && mkdir -p SConfDir 

211 if t -n "$2" ] 

212 then 
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213 f ilename-SConf Dir /S2 . tux 

214 while [ S# -gt 0 ] 

215 do 

216 echo "$1=\"$2V; export $1" 

217 shift 2 

218 done > $ filename 

219 fi 
220 

221 discover) 

222 [ -2 "SI" ] exit 1 

223 f ilename=SConf Dir/$1 . tux; shift 

224 if ( -f Sfilename ] 

225 then 

226 # sed -e 's/:/<a@@/g' -e 's/#.*//* -e ' s/ *; */"/g' Sfilename/ I 
awk ' 

227 sed -e 's/*.*//' -e 's/ *; */"/g' -e 's/:/#!:/g' $filename/ 
I awk 1 

228 BEGIN { field = " #promptW: prompt P : promptPO : prompts : promptA: pr 
omptM:promptC:promptR:promptF"; vaiue=" } 

229 /W { 

230 for (i=l; i<= NF; i++) { 

231 if (sub( M =5" # M, \ { 

232 separator = " : " 

233 field = field separator Si 

234 value = value separator S(i-t-l) 

235 } 

236 ) 

237 } 

238 END { 

239 print field; print value 

240 ) ' FS— 1 ** ' 

241 else 

242 print '#\n* 

243 fi 
244 

245 delappname ) 

246 if [ -n "$2" ] 
2 47 then 

248 f ilename=$Conf Dir/$2 . tux 

249 if [ -f Sfilename ] && grep -q "$1= [ ' \ n ] *$2" Sfilename 
25 0 then 

251 rm -f Sfilename $ {filename }p 

252 else 

253 echo 'The file does not exist' 

254 echo ' or' 

25 5 echo 'The file is not an environment file* 

256 exit 1 

257 fi 

258 fi 
259 

260 select) 

261 if [ -n M $2" ] 
2 62 then 

263 echo ,, $1= , S2'; export $1" > "SContext" 

264 fi 
265 

266 deselect) 

267 rm -f "SContext" 
268 

269 selected) 

270 APPNAME-"" 

271 [ -f SContext ) && . ./SContext 

272 echo "$ 1SAPPNAME" 
273 

274 isselected) 

275 rm -f tuxconf . tmp. * 

276 [ -f SContext ] && fgrep -q M APPNAME= M SContext && shift 

277 echo SI 
278 

279 loadcf) 

28 0 a ppname = $ 1 



WO 99/35573 



31 

ANNEXE 2 



PCT/FR98/02886 



281 boucle_status=0 

282 cmd=="\$TUXDIR/bin/tmloadcf -y $2 $3" 

283 set_environ 

284 echo " Loading Configuration Binary File " 

285 remote_cmd 

286 status=$? 

287 if [ $status -ne 0 ] 
28 8 then 

289 exit $status 

290 else 

291 # nvaj fichier $Scanconf . tux machines 

292 prog="$Env"' 

2 93 _ $TUXDIR/bin/tmunloadcf 

2 94 echo "\nexit $?" 

295 

296 #print -r "$prog" > prog 

2 97 rsh "$MASTER" -1 " $ ADMIN" "5 prog" > tuxconf . tmp . $ appname 

298 list_lmids- % cat tuxconf . tmp . $ appname I sed -e "s/=/ /g M -e 's/"//g' -e "s/\*// 
| awk * 

299 {line = $0} 

200 $2 "LMID" machine 1 { lmids = Imids $3 " "; next J 

301 $1 == "GROUPS" && S2 == "" ; machine=0; next) 

302 $1 ™ "MACHINES" $2 == "" { machine = 1; next) 

303 END {if (sub("~exit " line)) { 

304 print lmids 

305 exit line) 

306 exit -1 ) • * 

307 for machine in $list_lmids 

308 do 

309 echo " Updating $Scanconf on $machine \n M 

310 get_tuxval > "appname . tux" 

311 . * /appname - tux 

312 log_pref ix= * echo $ulogpfx I sed -e * s./. . g' ! awk • 

313 {print $NF> * ' 

314 log — dir= * echo $ulogpfx I sed -e ' s./. . g' I awk ' 

315 {for (i=l; i< NF; i++) { 

316 tempo = tempo "/" $i ) ) 

317 END { print tempo} ' ' 

318 #Build the 3 lines of $Scanconf for the application 

319 prog=" 

320 [ -x $MADISON_BIN/security/updscantux ] && 

321 $MADISON_BIN/security/updscantux Sappname $log_dir $log_prefix 

322 echo \"\\nexit \$?\"" 

323 rsh "Suname" -1 madison "$prog" j awk ' 

324 NR == 1 {line = $0) 

325 NR > 1 { print line; line = $0} 

326 END {if {sub C'^exit ","", line)) exit line; exit -1 ) * 

327 boucle_status=' expr $boucle — status + $? % 

328 done 

329 fi 

330 exit $boucle_status 
331 

332 apppwd) 

333 filename=$ConfDir/$l . tuxp 

334 echo "Enter Application Password: \c" 

335 OLDCONFIG=^stty -g* 

336 stty -echo 

337 read APP_PW 

338 echo " \nRe-enter Application Password: \c" 

339 read APP_PW_1 

340 stty $OLDCONFIG 

341 if [ "$APP_PW" 1= "$APP_PW_1" ] 

342 then 

343 echo "\n\nPassword mismatch!" 

344 echo "Enter any character to exit and retry" 

345 read 

346 else 

347 # PWencode "APP_PW= \"$APP_PW\" ; export APP_PW" > $filename 

348 # APP_PW=* echo SAPP_PW I sed -e "s/ * / 1 \" * \ " ' /g" 1 

349 # PWencode "APP_PW= ' $APP_PW ; export APP_PW" > $filename 

350 tuxgetenv -s > Sfilename << ! 
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351 tuxgetenvp 

352 $APP_PW 

353 ! 



354 fi 
355 

356 chksyntx) 

357 appname=$ 1 

358 cmd="\$TUXDIR/bin/tmloadcf -n $2" 

359 s e t_envi r on 

360 remote_cmd 

361 exit $? 
362 

363 displpc) 

364 appname=$ 1 

365 cmd= M \$TUXDIR/bin/tmloadcf -c $2 M 

366 set__environ 

367 remote_cmd 

368 exit $? 
369 

370 machine_network) 

371 appname=$l 

372 set_environ 

373 get_tuxconf ig I \ 

374 sed -e "s/=/ /g M -e *s/"//g' -e 's/W//' -e "s/W/" I awk • 

375 BEGIN { network=0 } 

376 {line = $0} 

377 NF 1 { if (network == 1) print $1) 

378 $1 == "NETWORK" { network = 1) 

379 END {if (sub < " ^exit f \ line)) exit line; exit -1 )* 

380 exit $? 
381 

382 

383 machine_ma chines ) 

384 appname=$l 

385 set_environ 

386 get_tuxconf ig I \ 

387 sed -e "s/W /g" -e 's/"//g* -e 's/W//' -e "s/W/" I awk ' 

388 BEGIN { machine=0 } 

389 {line =* $0} 

390 $2 — "LMID" { if (machine ™ 1) print $3) 

391 $1 == "GROUPS" { if ( $2 == "" ) machine=0} 

392 $1 == "MACHINES" { if ( $2 == "" ) machine - 1) 

393 END {if (sub (""exit " , " " , line)) exit line; exit -1 )' 

394 exit $? 
395 

396 group) 

397 appname=$ 1 

398 set_environ 

399 get_tuxconf ig I \ 

400 sed -e "s/-/ /g" -e ■s/V/g' -e 's/\\//' -e "s/\*// M I awk 1 

401 BEGIN { group=0 } 

402 {line - $0) 

4 03 $1 == "SERVERS " { group=0 ) 

404 $1 == "GROUPS" { if ($2 == " " ) group=l) 

405 $2 "LMID" && 54 ™ "GRPNO" { if (group) print $1) 

406 END {if (sub (""exit line)) exit line; exit -1 )' 

407 exit $? 
408 

4 09 s vrname ) 

410 appname ss $l 

411 set_environ 

412 get_tuxconfig I \ 

413 sed -e "s/=/ /g" -e 's/"//g' -e 'sAW -e "s/\*// M I awk ■ 

414 BEGIN { group=server=nb_of__distinct_svr_name=0 ) 

415 {line = SO) 

416 $1 == "TMSNAME" { if ( group ==1) { 

417 trouve = 0 

418 if (nb_of_distinct_svr_name ==0) { 

419 nb__of_distinct_svr_name=l 

420 svr_names [ nb_of _di s tine t_svr_name ] = $2 

421 print $2 
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422 




) else { 


423 




for (j=l; j<= nb_of _di s t inct_svr_name ; { 


424 




if ( $2 == svr_names (j ] ) { 


425 




trouve=l 


426 




) " - 


427 




) 


428 




if (trouve ==0) { 


429 




nb of distinct_svr_name += 1 


430 




svr names [nb_of_distinct_svr_name] = $2 


431 




print $2 


432 




) 


433 




) 


434 




} 


435 




) 


436 




$1 == "SERVERS" { if ($2 == { 


437 




server— 1 


438 




group=0 } 


439 




} 


440 




$1 == "SERVICES" { if (S2== ) server=0 } 


441 




$1 == GROUPS" { if ($2 == "") group=l) 


442 




$2 == "SRVGRP" { 


443 




if ((server ==1) && ( $4 "SRVID")) { 


444 




trouve = 0 


445 




if (nb of distinct svr_name 0) { 


446 




nb of distinct svr name ~ 1 


447 




svr names [nb of _di s t xnct_s vr_name ] = $1 


448 




print $1 


449 




} else { 


4_5_0 




for(j=l; j<— nb of _distinct_svr_name; j++) 


451 




if ( $1 == svr_names ( j ] ) { 


452 




trouve«=l 


453 




} 


454 




) 


455 




if (trouve 0 ) ( 


456 




nb_of_distinct_svr_name += 1 


457 




svr_names [nb_of_distinct_svr_ name] - $1 


458 




print $1 


459 




) 


460 




} 


461 




} 


462 




) 


463 




END { if (sub (" A exit line)) exit line; exit -1 }' 


464 


exit 


$? 


465 






466 


svrseq) 




467 


appname=$l 


468 


set_ 


environ 


469 


get_ 


tuxconfig I \ 


470 


sed 


-e "s/=/ /g" -e 's/"//g' -e 's/W//' -e "s/W/" 1 awk 


471 




BEGIN { server=0; nb of distinct svr seq=0 ) 


472 




(line = $0} 


473 




$1 == "SEQUENCE" && server == 1 ( 


474 




trouve = 0 


475 




if (nb_of_distinct svr seq ==0) ( 


476 




nb_of_distinct_svr seq=l 


477 




svr^seqs [nb_of _dis tinct_svr_seq] = $2 


478 




print $2 


479 




} else { 


480 




for (j-1; j<*= nb of distinct_svr_seq; ( 


481 




if ( $2 == svr_seqs[j] ) ( 


482 




trouve= 1 


483 




} 


484 




i 


485 




if (trouve ==0) { 


486 




nb_of_distinct_svr_seq += 1 


487 




svr_seqs[nb_of_distinct_svr_seq] = $2 


488 




print $2 


469 




) 


490 




) 


491 




} 


492 




$1 == "SERVERS" { if ($2 « "") server=l) 



i 
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493 $1 « "SERVICES " { if ($2 == " " ) server=0) 

494 END { if ( sub ( ,,A exit line)) exit line; exit -1 }' 

495 exit 5? 
4 96 

4 97 svrld) 

4 98 appname=$l 
499 set^environ 

5 00 get__tuxconf ig I \ 

501 sed -e "s/ = / /g" -e 's/V/g' -e 's/W//' -e "s/W/" i awk ' 

502 BEGIN { server=0 ; nb_of _distinct_svr_ld=0 }. 

503 {line = $0} 

504 $2 = "SRVGRP" $4 == "SRVTD" && server « 1 { 

505 trouve — 0 

506 if (nb_of_distinct_svr_Id ==0) ( 

507 nb_of_distinct_svr_Id-l 

508 svr_Ids [nb_of_distinct_svr_ Id] = $5 
$09 print $5 

510 _ } else { 

511 " for (j = l; j<= nb_of_distinct_svr_Id; j++) ( 

512 if ( $5 « svr_Ids[j] ) { 

513 trouve=l 

514 ) ■- 

515" - } 

516 if (trouve ==0) { 

517 nb_of _distinct_svr_Id += 1 

518 svr_Ids [nb_of_distinct_svr_Id] = $5 

519 print $5 

520 } 

521 } 

522 ) 

523 $1 ™ "SERVERS " { if ($2 == "") server^l } 

524 $1 == "SERVICES" { if ($2 "") server=0) 

525 END {if {sub{ ,,A exit , line)) exit line; exit -1 )' 

526 exit S? 
527 

528 discover_conf) 

529 machine=$2 

530 appnaxae- $ 1 - 

531 set_environ 

532 get_tuxconf ig I \ 

533 sed -e "s/=/ /g" -e 's/"//g' -e 's/WW/O/' -e "s/W/" 1 awk • 

534 BEGIN {field « "#" ) 

535 {line = $0} 

536 $1 « "UID" { 

537 field - field separator $1 

538 value = value separator $2 

539 separator - " : M 

540 } 

541 $1 == "GID" { 

542 field ~ field separator $1 

543 value = value separator $2 

544 separator = • 

545 ) 
546 

547 $1 "BRIDGE" && network — 1 && mach_found =- 1 ( 

548 field = field separator $1 

549 value - value separator $2 

550 ) 

551 $ 1 == "NLSADDR" && network == 1 && mach_found 1 { 

552 field = field separator $1 

553 value = value separator $2 

554 network = 0 

555 ma ch_ found = 0 

556 ) 

557 $1 == "TLLOG" && $2 == machine { 

558 field = field separator $1 

559 value = value separator $3 

560 } 
561 

5 62 51 == machine (mach_f ound = 1) 

5 63 $1 "NETWORK" { network = 1) 
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564 END { 

565 print field; print value 

566 if < sub { "^ exit line)) exit line; exit -1 
5 67 ) ' "machine=Smachine" 

568 exit $? 

5 69 

570 chglisten) 

571 appname=$ 1 

572 machine=$2 

573 shift 2 

574 if [ $# -gt 0 ] 

575 then 

576 echo "TLLOG $ma chine $1" > $Conf Dir/tlistenlog. $ appname . $ma chine 

577 fi 

578 exit $? 
579 

580 chklistscript) 

581 appname=$l 

582 machine=:$2 
58 3 set_environ 

58 4 get_tuxval > "appname. tux" 

585 get_tllog 

58 6 . . / appname . tux 

587 prog=" 

588 if [ -f $ appdir/tlist en. $ appname. Smachine ] 
58 9 then 

590 cat $ appdir/ tlx s ten. $ appname . $machine 

591 echo VWnexit 0\" 

592 else 

593 echo \"\\nexit 1\" 

594 fi" 

595 if [ -z "$uname" ] 
5 96 then 

597 print "Host ^machine not found" 

598 exit 1 

599 fi 

60 0 rm -f tlscript .$ appname . $ma chine 

601 rsh "$uname" -1 "SADMIN" "$prog" | tee tlscript. $ appname . $machine > / 
dev/null 

602 [ $? -ne 0 ] && exit 1 

603 [ -s tlscript. $ appname . $machine ] && cat tlscript .$ appname . $machine | 
awk ' 

604 END { if ( $2 "1" ) exit -1) ' 

605 [ $? -eq -1 ] && exit 1 

606 [ -s tlscript .$ appname . $machine ) && cat tlscript .$ appname . $machine I 
\ 

607 awk ■ 

608 $1 - "tlisten" { 

609 mismatch - 0 

610 f exec=sprintf ( "%s/bin/ tlisten" , tuxdir) 

611 if ($1 !^ fexec) { 

612 print "t lis ten command full pathnames mismatch" 

613 printf " \ tscript : \t%s\n" , $1 

614 printf " \tconf ig: \t%s\n" , fexec 

615 mismatch +=1 

616 ) 

617 for (i=2; i <= NF; i++) { 

618 if ( ( $i B « »-d") && <$<i+l) != bridge)) ( 

619 print "BRIDGE values mismatch" 

620 printf "\tscript:\t%s\n",$ (i+1) 

621 printf " \tconfig : \t%s\n" , bridge 

622 mismatch +-1 

623 } 

624 if ( ( $i 8 . M -l") && <$(i+l) !=nlsaddr)) ( 

625 print "NLSADDR values mismatch" 

626 printf "\tscript : \t%s\n" , $ (i+1) 

627 printf " \ tconf ig : \t%s\n" , nlsaddr 

628 mismatch +=1 

629 } 

630 if ( ( $i == "-u") && {$ != uid) ) { 

631 print "UID values mismatch" 
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632 printf " \tscript : \ t%s\n" , $(i+l) 

633 printf " \tconf ig: \ t%s\n" , uid 

634 mismatch +=1 

635 ) 

636 if ( ( $i — "-L") && ($(i+l) !=tllog)) { 

637 print "LOGFILE values mismatch" 

638 printf "\tscript : \t%s\n", $(i+l) 

639 printf "\tconfig:\t%s\n", tllog 

640 mismatch +-1 

641 } 

642 }} 

643 . END { 

644 if ( mismatch == 0 ) 

645 printf "Script File is up-to-date for %s\n" , machine 

646 else 

647 printf "\nScript File is NOT up-to-date for %s\n" , machine 

648 } f tllog-$tllog machine=$machine bridge=$bridge \ 
64 9 nlsaddr^Snlsaddr uid=$uid tuxdir=$ tuxdir 

650 exit $? 
651 

652 startlistproc) 

653 appname=$l; shift 

654 list="S*" 

655 set_environ 

656 boucle_status=Q 

657 exit_status=0 

658 for machine in $list 

659 - - - - do 

660 echo "\n Machine: $machine \n" 

661 get_tuxval > " appname . tux " 

662 get_tllog 

663 . . /appname . tux 

664 progl«" 

665 TUXDIR=$ tuxdir; export TUXDIR 

666 ROOTDIR=$ tuxdir; export ROOTDIR # V4 - 

667 APPDIR=$appdir; export APPDIR 

668 TUXCONFIG=$tuxconfig; export TUXCONFIG 

669 PATH— $ {PATH} : \$TXJXDIR/bin : \$APPDIR; export PATH 

670 LANG=$lang; export LANG 

671 LIBPATH=$ {LIBPATH} : $ tuxdir/ lib; export LIBPATH 

672 COLUMNS=20 0; export COLUMNS 

673 ps -eF ' %u %p %a ' I awk *\$3 - \ "tlistenS " && \$0 ~ \"$nlsaddr\" { 
exit 1 } ' 

674 if [ \$? = 1 ] 

675 then 

676 echo \ "Listener already running on $machine\" 

677 echo exit 0 

678 exit 0 
79 fi 

680 if [ -f $appdir/tlisten. $appname . $machine ] 

681 then 

682 . $appdir/tlisten. $appname . Smachine 

683 ps -eF ' %u %p %a* I awk ' \$3 ~ \"tlisten\" && \$0 ~ \"$nls 
addr\" {exit 1} 1 

684 if [ \$? » 1 ] 

685 then 

686 echo \"Listener started on $machine\" 

687 echo exit 0 

688 else 

689 echo VListener starting failed on $machine !!!\" 

690 echo exit 1 

691 fi 

692 else # create the script file & exec it 

693 echo \ " $tuxdir/bin/tlisten -d $bridge -1 $nlsaddr -u $uid -L 
$tllog\" > $appdir/tlisten . Sappname . $machine 

694 chmod ug+x $appdir /tlisten. $appname . $machine 

695 . $appdir/tlisten . Sappname . $machine 

696 ps -eF ' %u %p %a' I awk ' \$3 - \*'tlisten\" && \$0 - \"$nlsadd 
r\" {exit 1) * 

697 if [ \$? = l ] 

698 then 
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699 echo V'Listener started on $machine\" 

700 echo exit 0 

701 else 

702 echo V'Listener starting failed on $machine !!!\" 

703 echo exit 1 

704 fi 

705 fi" 

706 #echo "Sprogl" > progl 

707 — if [ -z "$uname" ] 

708 then 

709 print "Host $machine not found" 

710 exit 1 

711 fi 

712 rsh "Suname" -1 " $ ADMIN" "$progl" I awk * 

713 NR ~ 1 {line = 50) 

714 NR > 1 { print line; line = $0 } 

715 END { if (sub ("^exit line)) exit line; print line; exit -1) * 

716 boucle_status= l expr $boucle_status \| $? 

717 done 

718 exit $boucle_status 
719 

720 stoplistproc) 

721 appname-Sl; shift 

722 list="$*" 

723 set_environ 

724 boucle_status=0 

725 exit_status*0 

726 for machine in $list 

727 do 

728 echo " \n Machine: $ machine \n" 

729 get_tuxval > "appname . tux" 

730 . - /appname . tux 

731 progl= M 

732 COLUMNS=20 0; export COLUMNS 

733 ps -eF *%u %p %a' I awk ' \$3 ~ VtlistenV && \$0 - VSnlsaddrV (print \$ 
2; exit 0 } * I read pid 

734 if [ -n \"\$pid\" ] 

735 then 

736 kill -9 \$pid > /dev/null 

737 status=\$? 

738 if [ \$status -eq 0 ] 

739 then 

740 echo V'Process \$pid killed on $machine\" 

741 echo exit 0 

742 else 

743 echo V'Failed to stop listener on $ ma chine !!! V 

744 echo exit 1 

745 fi 

746 else 

747 echo \"No Listener running on $machine\" 

748 echo exit 1 

749 fi" 

750 if [ -2 "Suname" ] 

751 then 

752 print "Host Smachine not found" 

753 exit 1 

754 fx 

755 rsh "$uname" -1 "$ ADMIN" "$progl" I awk ■ 
75 6 NR — 1 {line * $0) 

757 NR > 1 { print line; line = $0 ) 

758 END {if (sub( ,,A exit line)) exit line; print line; exit -1}' 

759 boucle_status= * expr $boucle_status \| $? * 

760 done 

761 exit $boucle_status 
762 

763 

764 runninglist) 

7 65 appname =$ 1 

766 boucle_status-0 

767 set_environ 

768 list_lmids= ' get_tuxconf ig t \ 



WO 99/35573 



38 

ANNEXE 2 



PCT/FR98/02886 



769 sed -e "s/=/ /g" -e 's/"//g' -e ' s/WW/O/' -e M s/W/ M I awk ' 

770 BEGIN { network=0 } 

771 {line = $0} 

772 NF == 1 { if (network 1) print $1} 

773 $1 == "NETWORK" { network = 1} 

774 END (if (sub (" A exit line)) exit line; exit -1 } 1 

775 for machine in $list_lmids 
77 6 do 

777 get_tuxval > "appname. tux" 

778 • ■ /appname . tux 

779 progl=" 

780 TUXDIR=S tuxdir; export TUXDIR 

781 _ LIBPATH=$ { LIBPATH ) : $ tuxdir /lib; export LIB PATH 

782 ROOTDIR=$ tuxdir; export ROOTDIR # V4 

783 APPDIR=$appdir; export APPDIR 

784 TUXCONFIG~$tuxconf ig; export TUXCONFIG 

785 PATH=$ ( PATH) : \$ TUXDIR /bin: \$APPDIR; export PATH 

786 LANG=$lang; export LANG 

787 COLUMNS=200; export COLUMNS 

788 ps -eF * %u %p %a' I awk *\$3 - \"tlisten\" \$0 - \ " $nlsaddr\ " {print 
\$2) ' I read pid 

7S9 if [ -n \"\$pid\" ] 

790 then 

791 echo \ "Listener running on ^machine: pid = \$pid\ M 

792 echo exit 0 

793 else 

794 echo \"No Listener running on $machine\" 

795 echo exit 0 

796 fi" 

797 if ( -z '^uname" ] 

798 then 

799 print "Host $machine not found" 

800 exit 1 

801 fi 

802 rsh "$uname" -1 "$ ADMIN" "$progl" I awk ' 

803 NR == 1 {line = $0} 

804 NR > 1 { print line; line = $0} 

805 END { if (sub("~exit ", "", line)) exit line; print line; exit -1) * 

806 boucle_status='expr $boucle_status \| $?* 

807 done 

808 exit $boucle_status 
809 

810 updtlistscript ) 

811 appname=$l 

812 machine=$2 

813 set_environ 

814 get_tllog 

815 get_tuxval > " appname . tux " 

816 . . /appname . tux 

817 prog=" 

818 echo \"$tuxdir/bin/tlisten -d $bridge -1 $nlsaddr -u $uid -L $tllog\" > $app 
dir/t listen. $ appname . $ma chine 

619 chmod ug+x $appdir /tlisten. $appname . $machine 

820 echo exit \$?" 

821 if [ -z "Suname" ] 

822 then 

823 print "Host $machine not found" 

824 exit 1 

825 fi 

82 6 rsh "$uname" -1 "$ADMIN" "$prog" I awk ' 

827 NR == 1 {line = SO) 

828 NR > 1 { print line; line = $0 } 

829 END { if (sub (" A exit " line)) exit line; print line; exit -1)' 

830 exit $? 
631 

8 32 tuxBootEnt) 

8 33 appname=$l ; shift 

834 cmd="\STUXDIR/bin/tmboot -y $@" 

835 set_environ 

83 6 remote_cmd 
837 exit $? 
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838 

839 tuxShutEnt) 

84 0 appname=$l; shift 

841 cmd="\$TUXDIR/bin/tmshutdown -y" 

84 2 set_environ 

8 43 remote_cmd 

844 exit $? 

845 

8 4 6 tuxBootAl lMach ) 

8 47 appname-$l; shift 

848 citid="\$TUXDIR/bin/tmboot -y -A $@" 

84 9 set_ environ 

850 remote_cmd 

851 exit $? 
852 

853 tuxShutAllMach) 

854 appname- $1; shift 

855 cmd="\$TUXDIR/bin/tms hut down -y -A $@" 

85 6 set_ environ 
8 57 remor e_cmd 
658 exit $? 

85 9 ;; 

8 60 ~ tuxShut) 

8 61 appname-$ 1 ; shift 

862 cmd="\$TUXDIR/bin/tmshutdown -y $6" 

8 63 s e t_envi r on 

8 64 remote_cmd 

865 exit $? 

866 

867 tuxShutAdmMast) 

868 appname=$l; shift 

869 cmd="\$TUXDIR/bin/tmshutdown -y -M $@ M 

870 set_environ 
870 rerao t e_cmd 
872 exit $? 

873 

87 4 tuxShutSvrSect) 

875 appname«$l; shift 

876 cmd="\$TUXDIR/bin/tmshutdown -y -S $@" 

877 s e t _envi r on 

878 remote_cmd 

879 exit $? 
880 

881 tuxBootAdniMast ) 

882 appname =$ 1 ; shift 

883 cmd="\$TUXDIR/bin/tmboot -y — M $@ M 

88 4 set_environ 

885 remote_cmd 

886 exit $? 
887 

888 tuxBoot) 

889 appname=$l; shift 

890 cmd«"\$TUXDIR/bin/tmboot -y $@" 

891 set_environ 

892 remote_cmd 

893 exit $? 
894 

8 95 tuxShutdown) 

8 96 appname=$2 

897 cmd="\$TUXDIR/bin/tmshutdown -y $1" 

8 98 set_ environ 

e99 remote_cmd 

900 exit $? 

901 

902 tuxBootSvrSct) 

903 appname =$ 1 ; shift 

904 cmd="\$TUXDIR/bin/tmboot -y -S $@ # ' 

905 set_environ 

906 remote^cmd 

907 exit $? 
908 
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909 tuxBootBBL) 

910 #echo $* 

911 appname=$l; shift 

912 cmd="\$TUXDIR/bin/tmboot -y $@" 

913 set_environ 

914 remot e_cmd 

915 exit $? 
916 

917 -tuxShowBooted) 

918 appname=$l ; shift 

919 cmd=" (echo psr; echo quit ) I \$TUXDIR/bin/tmadmin" 

920 set_environ 

921 r emo t e_cmd 

922 exit $? 
923 

924 tuxminlPC) 

925 appname=$l; shift 

926 cmd="\$TUXDIR/bin/tmboot -y -c $@" 

927 set_environ 

928 remote_cmd 

929 exit $? 
930 

931 tuxShutPart) 

932 exit_status=0 

933 appname=$ 1 ; 

934 machine=$2; shift 

935 set_environ 

936 get_tuxconf ig I \ 

937 sed -e "s/=/ /g" -e 's/"//g* -e *s/\\//' -e M s/W/" I awk • 

938 $1 = "APPDIR" && mach_section == 1 && mach_f ound =- 1 { 

939 print "APPDIR " $2 > " appname . tux " 

940 mach_section = 0 

941 mach_f ound = 0 

942 } 

943 $1 == "TUXCONFIG" && mach_section==l && mach_f ound==l ( 
94 4 print "TUXCONFIG " $2 > " appname . tux" 

945 } 

94 6 $1 == "MACHINES" {mach_section = 1) 

947 $2 — "LMID" && mach_section == 1 && $3 machine { 

94 8 print "MACHINE " $1 > " appname . tux " 

94 9 ma ch_ found = 1 

950 } 

951 $1 == "TUXDIR" && mach_section==l && mach_f ound==l ( 

952 print "TUXDIR " $2 > " appname . tux " 

95 3 } 

95 4 ' "ma chi ne=$ ma chine" " appname -$ appname" 

955 if [ $? != 0 ] 

95 6 then 

957 exit 1 

958 fi 

959 appdir^'awk *$1 *== "APPDIR" {print $2)* appname. tux 1 

960 tuxconf ig=* awk '$1 "TUXCONFIG" {print $2)' appname. tux' 

961 uname= % awk *$1 ==> "MACHINE" {print $2}' appname. tux' 

962 rootdir^'awk '$1 == "TUXDIR" {print $2}' appname. tux* 

963 lang=*sed -e ' s/=/ /g' -e ' s/;/ /g' $ConfDir/$ appname . tux I 

964 awk '$1 == "LANG" {print $2}'* 

965 progl*="TUXDIR=$rootdir; export TUXDIR 

966 APPDIR=$appdir; export APPDIR 

967 LIBPATH=$ (LIBPATH) : $rootdir/lib; export LIBPATH 

968 TUXCONFIG=$tuxconfig; export TUXCONFIG 

969 LANG=$ 1 ang ; export LANG 

970 PATH=$ (PATH) : \$TUXDIR/bin: \$APPDIR; export PATH 

971 $TUXDIR/bin/tmshutdown -y -P $@ 

972 echo \$? > / tmp/rem$ appname . $machine . tux" 

973 if [ -2 M $uname" ] 

974 then 

975 print "Host ^machine not found" 

976 exit 1 

977 fi 

978 rsh $uname -1 "$ADMIN" "$progl" 

979 rsh status=*echo $?* 
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980 if [ "$rsh_status" -eq "0" ] 

981 then 

982 status^' rsh Suname -1 " $ ADMIN" "cat /tmp/rem$ appname . Smachine . tux" * 

983 rsh $ MASTER -1 " $ADMIN" "rm /tmp/rem$appname .$ ma chine, tux" 2> /dev/nul 

1 

984 rsh $uname -1 "$ADMIN" "rm /tmp/rem$appname . Smachine. tux" 2> /dev/nul 
1 

985 fi 

986 if [ "$status" -ne "0" ] 

987 then 

988 exit_status= * expr $exit_status + 1* 

989 fi 

990 if [ "$exit_status" -ne "0" -o "$rsh_status " -ne "0" ] 

991 then 

992 exit 1 

993 fi 
994 

995 loadfshm) 

996 appname=$l; machine=$2 ; shift 2 

997 set_environ 

998 get_tuxval > "appname . tux" 

999 . . /appname . tux 

1000 prog=" 

1001 TUXDIR=$tuxdir; export TUXDIR 

1002 ROOTDIR=$tuxdir; export ROOTDIR 

1003 LIBPATH«$ {LIBPATH} :$tuxdir/lib; export LIB PATH 

1004 LANG=$lang; export LANG 

1005 $tuxdir/bin/loadf iles $Q 

1006 echo \"\nexit \$?V" 

1007 if [ -2 "Suname" ] 

1008 then 

1009 print "Host ^machine not found" 

1010 exit 1 

1011 fi 

1012 rsh "$uname" -1 " $ ADMIN" "$prog M 1 awk • 

1013 NR == 1 {line = $0) 

1014 NR > 1 { print line; line = $0 J 

1015 END (if (sub (" A exit " ,"", line)) exit line; print line; exit -1}* 
1016 

1017 Unloadcf ) 

1018 appname =$ 1 

1019 set_environ 

1020 cmd="\$TUXDIR/bin/tmunloadcf " 

1021 if [ $# -eq 2 ] 

1022 then 

1023 f ilename=$2 

1024 remote_cmd > " $f ilename" 

1025 else 

102 6 remote_cmd 

1027 fi 

1028 exit $? 
1029 

1030 *) 

1031 echo "Command $1 does not exist" 

1032 exit 1 
1033 

1034 esac 
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REVEND1CATIONS 

1. Precede cTassistance a Tadministration d'une application 
distribuee d'un gestionnaire de traitement des transactions, basee sur un 

5 fichier binaire de configuration (TUXCONFIG) caracterise en ce que ledit 
procede comporte: 

- une etape de r§cuperation d' informations relatives a ladite 
application dans un fichier de configuration d'une machine maitre (Mm), 

- une etape de verification de la consistance de ladite application 
10 mise en oeuvre sur une machine donnee. 

2. Procede selon la revendication 1, caracterise en ce qu'il 
comprend une etape de gestion d'au moins un module d'ecoute (3) d'une 
machine quelconque de I'application a partir d'une autre machine. 

3. Procede selon la revendication 1, caracterise en ce que les 
15 informations concernant ladite application distribuee sont directement 

prelevees dans le fichier de configuration actif de la machine maitre. 

4. Procede selon la revendication 1 , caracterise en ce que Tetape de 
verification de consistance de ladite application consiste en une 
comparaison entre des informations issues du fichier de configuration de la 

20 machine maitre et des informations issues de ladite application courante 
mise en oeuvre sur une machine donnee. 

5. Procede selon la revendication 2, caracterise en ce que ladite 
gestion des modules d'ecoute consiste a lancer et a arreter au moins un 
module d'ecoute, a afficher des informations concernant au moins un 

25 module d'ecoute, a modifier le journal d'au moins un module d'ecoute, a 
verifier le script d'au moins un module d'ecoute et/ou a mettre a jour le script 
d'au moins un module d'ecoute. 

6. Procede selon la revendication 2, caracterise en ce qu'il 
comprend une etape de lancement et d'arret d'un module d'ecoute mis en 

30 oeuvre sur une premiere machine, cette etape etant mise en oeuvre par un 
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administrateur utilisant une deuxieme machine distincte de la premiere, 
appartenant au meme reseau que la premiere machine. 

7. Procede selon la revendication 2, caracterise en ce qu'il 
comprend une etape d'activation simultanee de plusieurs modules d'ecoute. 
5 8. Procede selon la revendication 1 , caracterise en ce qu'il comporte 

une etape de decompilation du fichier de configuration actif de la machine 
mattre. 

9. Procede selon la revendication 2, caracterise en ce que les 
etapes du procede sont mises en oeuvre par I'intermediaire d'une interface 

10 graphique comprenant au moins une icone, au moins un menu, et au moins 
une boite de dialogue. 

10. Procede selon la revendication 9, caracterise en ce que les 
menus de Tinterface graphique sont structures sous forme d'arborescence et 
I'actionnement d'un menu provoque I'affichage d'une liste de valeurs de la 

15 configuration courante, selectionnable par I'utilisateur. 

1 1 . Procede selon la revendication 4, caracterise en ce que lorsque 
le fichier contenant des informations sur ladite application mise en oeuvre 
sur une machine donnee (tlog) est inexistant le procede le genere 
automatiquement pour pouvoir I'utiliser tors du prochain lancement des 

20 modules d'ecoute (3). 

12. Procede selon la revendication 6, caracterise en ce lesdites 
informations affichees concernant au moins un module d'ecoute(3) 
comprennent au moins le nom de ladite application, le nom logique de la 
machine (LMID)sur laquelle ladite application est executee, I' identification de 

25 Tutilisateur (UID) de ladite application, Tadresse utilisee par le module 
d'ecoute (NLSADRR), le chemin d'acces au reseau de ladite application, le 
chemin d'acces au fichier journal dudit module d'ecoute (LLFPN). 
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